home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Scripts / pp-320m.exe / pp300 / a-patch.mrc < prev    next >
Encoding:
Text File  |  1998-08-15  |  3.6 KB  |  114 lines
  1. _dopatch2 {
  2.   set %.mircdir $_mircdir
  3.   set %.nump $readini -n $2- info num
  4.   set %.lines $readini -n $2- info lines
  5.   set %.total $calc(46 + [ %.nump ] + [ %.lines ] )
  6.   set %.cur 0
  7.   _ppun r-away.mrc
  8.   _ppun r-hidden.mrc
  9.   _ppun r-notice.mrc
  10.   _ppun r-sound.mrc
  11.   _ppun p-other1.mrc
  12.   _ppun p-other2.mrc
  13.   _ppun r-misc.mrc
  14.   _ppun r-flood.mrc
  15.   _ppun r-reply.mrc
  16.   _ppun r-whois.mrc
  17.   _ppun r-disp.mrc
  18.   _ppun a-fkeys.mrc
  19.   _ppun2 a-intern.mrc
  20.   _ppun2 a-intrn2.mrc
  21.   _ppun2 a-idents.mrc
  22.   _ppun2 a-main1.mrc
  23.   _ppun2 a-main2.mrc
  24.   _ppun2 a-main3.mrc
  25.   _ppun2 a-main4.mrc
  26.   _ppun2 a-main5.mrc
  27.   _ppun2 a-wraps.mrc
  28.   _ppun2 a-confg1.mrc
  29.   _ppun2 a-confg2.mrc
  30.   set %.patch 1
  31.   :loop3
  32.   set %.ini Patch $+ %.patch
  33.   set %.file $readini -n $2- %.ini file
  34.   set %.file %.mircdir $+ %.file
  35.   if ($exists(%.file) == $false) _pabort File to patch ( $+ %.file $+ ) not found!
  36.   set %.olds $readini -n $2- %.ini oldsize
  37.   set %.news $readini -n $2- %.ini newsize
  38.   set %.old1 $readini -n $2- %.ini old1
  39.   if ((%.olds < 1) || (%.news < 1) || (%.old1 == $null)) _pabort Error in patch file!
  40.   set %.old1 $_2readprep(%.old1)
  41.   _pperc Scanning for patch location %.patch $+ ...
  42.   set %.lines $lines(%.file)
  43.   set %.line 1
  44.   :loop4
  45.   set %.1st $read -nl [ $+ [ %.line ] ] %.file
  46.   if (%.1st == %.old1) {
  47.     if (%.olds > 1) {
  48.       set %.chk 2
  49.       set %.cline $calc(%.line + 1)
  50.       :loop5
  51.       set %.oldn $readini -n $2- %.ini old [ $+ [ %.chk ] ]
  52.       set %.2nd $read -nl [ $+ [ %.cline ] ] %.file
  53.       if (%.2nd != $_2readprep(%.oldn)) goto contin
  54.       inc %.chk | inc %.cline
  55.       if (%.chk <= %.olds) goto loop5
  56.     }
  57.     :loopdel
  58.     _pperc Removing old section of script...
  59.     write -dl [ $+ [ %.line ] ] %.file
  60.     dec %.olds
  61.     if (%.olds > 0) goto loopdel
  62.     :loopadd
  63.     _pperc Adding new section of script...
  64.     set %.newn $readini -n $2- %.ini new [ $+ [ %.news ] ]
  65.     write -il [ $+ [ %.line ] ] %.file $_2readprep(%.newn)
  66.     dec %.news
  67.     if (%.news > 0) goto loopadd
  68.     goto nextpat
  69.   }
  70.   :contin
  71.   inc %.line
  72.   if (%.line <= %.lines) goto loop4
  73.   _pabort Location for patch %.patch not found!
  74.   :nextpat
  75.   inc %.patch
  76.   if (%.patch <= %.nump) goto loop3
  77.   if ($right(%pp.ver,1) isnum) set %pp.ver %pp.ver $+ .
  78.   set %pp.ver %pp.ver $+ $1
  79.   _pprel | _pfinish | halt
  80. }
  81. _pperc inc %.cur | set %.perc $int($calc(%.cur * 100 / %.total)) | _2progress.2 %.perc $1-
  82. _pabort _pprel | _pabort2 $1- | halt
  83. _2progress.2 if ($2 != $null) rline %col.cust @Progress 2  $+ $2- | rline @Progress 3 %_pr.dk $+ $str(á,$1) $+ %_pr.lt $+ $str(á,$calc(100 - $1)) | titlebar @Progress Meter- $1 $+ %
  84. _ppun _pperc Unloading script files... | .unload -rs $script($1)
  85. _ppun2 _pperc Unloading alias files... | .unload -a $alias($1)
  86. _ppre _pperc Reloading script files... | .load -rs $1
  87. _ppre2 _pperc Reloading alias files... | .load -a $1
  88. _pprel {
  89.   _ppre pp300\r-away.mrc
  90.   _ppre pp300\r-hidden.mrc
  91.   _ppre pp300\r-notice.mrc
  92.   _ppre pp300\r-sound.mrc
  93.   _ppre pp300\p-other1.mrc
  94.   _ppre pp300\p-other2.mrc
  95.   _ppre pp300\r-misc.mrc
  96.   _ppre pp300\r-disp.mrc
  97.   _ppre pp300\r-flood.mrc
  98.   _ppre pp300\r-reply.mrc
  99.   _ppre pp300\r-whois.mrc
  100.   _ppre pp300\a-fkeys.mrc
  101.   _ppre2 pp300\a-intern.mrc
  102.   _ppre2 pp300\a-intrn2.mrc
  103.   _ppre2 pp300\a-idents.mrc
  104.   _ppre2 pp300\a-main1.mrc
  105.   _ppre2 pp300\a-main2.mrc
  106.   _ppre2 pp300\a-main3.mrc
  107.   _ppre2 pp300\a-main4.mrc
  108.   _ppre2 pp300\a-main5.mrc
  109.   _ppre2 pp300\a-wraps.mrc
  110.   _ppre2 pp300\a-confg1.mrc
  111.   _ppre2 pp300\a-confg2.mrc
  112. }
  113. _2readprep if ($1 == $null) return | return $replace($replace($replace($replace($replace($1-,$chr(141),),$chr(142),),$chr(143),),$chr(144),),$chr(157),)
  114.